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Model 


400 Atrhim—Ono Tandy Cantor, Fort Worth, Toxas 76102 


V 


Mcxiel I/III 
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Problem 

Only one account can be deleted before posting. 

OR: 

Accounts with transactions cannot be deleted immediately after posting. 


Solution 

The problem is corrected by following the steps listed below. 

1. Backup the diskette(s) and make the changes on the Backup copy of the 
program. 

2. In BASIC load the program by typing IDAD"ARS". 

3. Make the following corrections: 

CHANGES (Retype the line or refer to the Edit section of the owners manual) 
VERSIONS PRIOR TO 3.jg 

Old Line: 1300 IFDI<>0ANDU<>0THENPRINT@832 ,CMR$( 31 );"CANNOT DELETE THIS 
AXDUNT UNTIL AFTER POSTING" :GOSUB3340:G(OTO1210ELSEIFPT=1THENQOSUB3140 

New Line: 1300 IFDI<>0ANDUD<>0THENPRINT@832,CHR$(31) ;"(3V^NOT DELETE THIS 
iOXIUNT UNTIL AFTER POSTING" :QOSUB3340:GOTO1210ELSEIFPT=1THENGOSUB3140 

Old Line: 1990 U=0:LPRINTLF$:IPRINT"BND OF REPORT" :LPRINTLL$: 

LPRINTCHR$ ( 12 ) :CIOSE3:QOrO1630 


New Line: 1990 U=0:UD=0:IPRINTLF$:LPRINP"IND OF REP(3RT":If>RINTLL$: 
LPRINTCHR$ (12) :CIiDSE3:GOTO1630 
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Old Line: 3410 POR»=1TOTN-1:INPUT#1,P(N,0) ,P(N,1) ,P{N,2) :NEXT:CLDSE1 
New Line: 3410 P0RN=1T0TN-1: INPUT#!^P(N,0) ,P(N> 1) ,P (N, 2):NEXT:CL0SE 1:UD=U 
VERSION 3.0 

Old Line: 1060 IFDI<>0ANIXJ<>01HENPRINr@832 ,CHR$ ( 31 ): "CANNOT DELETE THIS 
A:XX)UNr UNTIL AFTER POSTING" :GOSUB2600:QOTO960ELSEIFPT=lTEffiNQOSUB2450 

New Line: 1060 IFDI<>0ANDUD<>0THENPRINr@832 ,CHR$ (31); "CANNOT DELETE THIS 
ACOOUNT UNTIL AFTER POSTING" :QOSUB2600:QOTO960ELSEIFPT=1'IHENQOSUB2450 

Old Line: 2640 OPEN"I",l,PI$:INPUT#l,TI,TN,F,U,UT,UN,EP,R0,Rl,R2,R3, 
R4,R5,R6,R7,CV# 

New Line: 2640 OPEN"I",l,PI$:INPUT#l,TI,TN,F,U,OT,UN,EP,R0,Rl,R2,R3, 
R4,R5^R6>R7,CV #:UD=U 

Old Line: 1630 U=0:IPRINT" ":LPRINT"END OF REPORT" :LPRINTLL$: 

QOSUB2515 :CIOSE3: QOTO1360 

New Line: 1630 U=0:UD=0:IPRINT" ":IPRINT"END OF REPORT" :IPRINTLLi$: 
GOSUB2515:CLOSE3:GOTO1360 

VERSION 3.1 

Old Line: 1630 O=0:IPRINT" ":IPRINT"END OF REPORT" :LPRINTLL$: 

QOSUB2515:CD0SE3:GOTO1360 

New Line: 1630 U=0:UI>=0:IPRINT" ":IPRINT"END OF REPORT" ;IPRINTLL$: 
QOSUB2515: CIOSE3: GOTO1360 


4. Type SAVE"ARS" to save the chctnges in the program. 

5. At IRSDOS Ready, maJce a backup) copy of the corrected diskette. 












